home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / time.elc < prev    next >
Emacs Compiled Lisp  |  1992-02-04  |  1.9 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs v18 byte-compiled Lisp data default
99% file data default
100% gt2 Kopftext: '(defvar display-time-mail-file nil ' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime text/x-emacs-lisp default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 64 69 73 70 6c 61 79 |.(defvar| display|
|00000010| 2d 74 69 6d 65 2d 6d 61 | 69 6c 2d 66 69 6c 65 20 |-time-ma|il-file |
|00000020| 6e 69 6c 20 22 5c 0a 2a | 46 69 6c 65 20 6e 61 6d |nil "\.*|File nam|
|00000030| 65 20 6f 66 20 6d 61 69 | 6c 20 69 6e 62 6f 78 20 |e of mai|l inbox |
|00000040| 66 69 6c 65 2c 20 66 6f | 72 20 69 6e 64 69 63 61 |file, fo|r indica|
|00000050| 74 69 6e 67 20 65 78 69 | 73 74 65 6e 63 65 20 6f |ting exi|stence o|
|00000060| 66 20 6e 65 77 20 6d 61 | 69 6c 2e 0a 44 65 66 61 |f new ma|il..Defa|
|00000070| 75 6c 74 20 69 73 20 73 | 79 73 74 65 6d 2d 64 65 |ult is s|ystem-de|
|00000080| 70 65 6e 64 65 6e 74 2c | 20 61 6e 64 20 69 73 20 |pendent,| and is |
|00000090| 74 68 65 20 73 61 6d 65 | 20 61 73 20 75 73 65 64 |the same| as used|
|000000a0| 20 62 79 20 52 6d 61 69 | 6c 2e 22 29 0a 0a 28 64 | by Rmai|l.")..(d|
|000000b0| 65 66 76 61 72 20 64 69 | 73 70 6c 61 79 2d 74 69 |efvar di|splay-ti|
|000000c0| 6d 65 2d 70 72 6f 63 65 | 73 73 20 6e 69 6c 29 0a |me-proce|ss nil).|
|000000d0| 0a 28 64 65 66 76 61 72 | 20 64 69 73 70 6c 61 79 |.(defvar| display|
|000000e0| 2d 74 69 6d 65 2d 69 6e | 74 65 72 76 61 6c 20 36 |-time-in|terval 6|
|000000f0| 30 20 22 5c 0a 2a 53 65 | 63 6f 6e 64 73 20 62 65 |0 "\.*Se|conds be|
|00000100| 74 77 65 65 6e 20 75 70 | 64 61 74 65 73 20 6f 66 |tween up|dates of|
|00000110| 20 74 69 6d 65 20 69 6e | 20 74 68 65 20 6d 6f 64 | time in| the mod|
|00000120| 65 20 6c 69 6e 65 2e 22 | 29 0a 0a 28 64 65 66 76 |e line."|)..(defv|
|00000130| 61 72 20 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |ar displ|ay-time-|
|00000140| 73 74 72 69 6e 67 20 6e | 69 6c 29 0a 0a 28 64 65 |string n|il)..(de|
|00000150| 66 75 6e 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |fun disp|lay-time|
|00000160| 20 6e 69 6c 20 22 5c 0a | 44 69 73 70 6c 61 79 20 | nil "\.|Display |
|00000170| 63 75 72 72 65 6e 74 20 | 74 69 6d 65 20 61 6e 64 |current |time and|
|00000180| 20 6c 6f 61 64 20 6c 65 | 76 65 6c 20 69 6e 20 6d | load le|vel in m|
|00000190| 6f 64 65 20 6c 69 6e 65 | 20 6f 66 20 65 61 63 68 |ode line| of each|
|000001a0| 20 62 75 66 66 65 72 2e | 0a 55 70 64 61 74 65 73 | buffer.|.Updates|
|000001b0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 65 | automat|ically e|
|000001c0| 76 65 72 79 20 6d 69 6e | 75 74 65 2e 0a 49 66 20 |very min|ute..If |
|000001d0| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 2d 64 61 79 |display-|time-day|
|000001e0| 2d 61 6e 64 2d 64 61 74 | 65 20 69 73 20 6e 6f 6e |-and-dat|e is non|
|000001f0| 2d 6e 69 6c 2c 20 74 68 | 65 20 63 75 72 72 65 6e |-nil, th|e curren|
|00000200| 74 20 64 61 79 20 61 6e | 64 20 64 61 74 65 0a 61 |t day an|d date.a|
|00000210| 72 65 20 64 69 73 70 6c | 61 79 65 64 20 61 73 20 |re displ|ayed as |
|00000220| 77 65 6c 6c 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |well." (|interact|
|00000230| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000240| 22 c4 88 09 85 0b 00 c7 | 09 21 c8 3d 18 08 3f 85 |".......|.!.=..?.|
|00000250| 4d 00 09 85 18 00 c9 09 | 21 88 0a 86 20 00 ca 89 |M.......|!... ...|
|00000260| 12 88 c3 0a 3e 86 2d 00 | cb 0a cc 5c 22 89 12 88 |....>.-.|...\"...|
|00000270| cd 89 13 88 ce cf c4 0d | d0 50 d1 0e 06 21 24 89 |........|.P...!$.|
|00000280| 11 88 d2 09 21 88 d3 09 | d4 5c 22 88 d5 09 d6 5c |....!...|.\"....\|
|00000290| 22 29 87 22 20 5b 6c 69 | 76 65 20 64 69 73 70 6c |")." [li|ve displ|
|000002a0| 61 79 2d 74 69 6d 65 2d | 70 72 6f 63 65 73 73 20 |ay-time-|process |
|000002b0| 67 6c 6f 62 61 6c 2d 6d | 6f 64 65 2d 73 74 72 69 |global-m|ode-stri|
|000002c0| 6e 67 20 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |ng displ|ay-time-|
|000002d0| 73 74 72 69 6e 67 20 6e | 69 6c 20 65 78 65 63 2d |string n|il exec-|
|000002e0| 64 69 72 65 63 74 6f 72 | 79 20 64 69 73 70 6c 61 |director|y displa|
|000002f0| 79 2d 74 69 6d 65 2d 69 | 6e 74 65 72 76 61 6c 20 |y-time-i|nterval |
|00000300| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 72 |process-|status r|
|00000310| 75 6e 20 64 65 6c 65 74 | 65 2d 70 72 6f 63 65 73 |un delet|e-proces|
|00000320| 73 20 28 22 22 29 20 61 | 70 70 65 6e 64 20 28 64 |s ("") a|ppend (d|
|00000330| 69 73 70 6c 61 79 2d 74 | 69 6d 65 2d 73 74 72 69 |isplay-t|ime-stri|
|00000340| 6e 67 29 20 22 22 20 73 | 74 61 72 74 2d 70 72 6f |ng) "" s|tart-pro|
|00000350| 63 65 73 73 20 22 64 69 | 73 70 6c 61 79 2d 74 69 |cess "di|splay-ti|
|00000360| 6d 65 22 20 22 77 61 6b | 65 75 70 22 20 69 6e 74 |me" "wak|eup" int|
|00000370| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 70 72 6f 63 65 |-to-stri|ng proce|
|00000380| 73 73 2d 6b 69 6c 6c 2d | 77 69 74 68 6f 75 74 2d |ss-kill-|without-|
|00000390| 71 75 65 72 79 20 73 65 | 74 2d 70 72 6f 63 65 73 |query se|t-proces|
|000003a0| 73 2d 73 65 6e 74 69 6e | 65 6c 20 64 69 73 70 6c |s-sentin|el displ|
|000003b0| 61 79 2d 74 69 6d 65 2d | 73 65 6e 74 69 6e 65 6c |ay-time-|sentinel|
|000003c0| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 66 69 6c | set-pro|cess-fil|
|000003d0| 74 65 72 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |ter disp|lay-time|
|000003e0| 2d 66 69 6c 74 65 72 5d | 20 31 30 29 29 0a 0a 28 |-filter]| 10))..(|
|000003f0| 64 65 66 75 6e 20 64 69 | 73 70 6c 61 79 2d 74 69 |defun di|splay-ti|
|00000400| 6d 65 2d 73 65 6e 74 69 | 6e 65 6c 20 28 70 72 6f |me-senti|nel (pro|
|00000410| 63 20 72 65 61 73 6f 6e | 29 20 28 62 79 74 65 2d |c reason|) (byte-|
|00000420| 63 6f 64 65 20 22 c2 08 | 21 c3 3d 86 0b 00 c4 89 |code "..|!.=.....|
|00000430| 11 88 8a c5 20 71 29 88 | c6 c7 20 21 88 c8 c9 21 |.... q).|.. !...!|
|00000440| 87 22 20 5b 70 72 6f 63 | 20 64 69 73 70 6c 61 79 |." [proc| display|
|00000450| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 70 72 6f |-time-st|ring pro|
|00000460| 63 65 73 73 2d 73 74 61 | 74 75 73 20 72 75 6e 20 |cess-sta|tus run |
|00000470| 22 22 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 20 |"" other|-buffer |
|00000480| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00000490| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|000004a0| 69 66 69 65 64 2d 70 20 | 73 69 74 2d 66 6f 72 20 |ified-p |sit-for |
|000004b0| 30 5d 20 36 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |0] 6))..|(defun d|
|000004c0| 69 73 70 6c 61 79 2d 74 | 69 6d 65 2d 66 69 6c 74 |isplay-t|ime-filt|
|000004d0| 65 72 20 28 70 72 6f 63 | 20 73 74 72 69 6e 67 29 |er (proc| string)|
|000004e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c9 20 ca | (byte-c|ode ". .|
|000004f0| cb cc 8f 0b 86 20 00 cd | ce 21 86 20 00 0c cd cf |..... ..|.!. ....|
|00000500| 21 86 1f 00 cd d0 21 86 | 1f 00 d1 20 50 ca ca 1e |!.....!.|... P...|
|00000510| 06 1d 1a 19 18 d2 08 d3 | d4 4f 21 89 15 88 0d d5 |........|.O!.....|
|00000520| 59 89 16 06 88 0d d5 56 | 83 46 00 0d d5 5a 89 15 |Y......V|.F...Z..|
|00000530| 82 4f 00 0d d6 55 85 4f | 00 d5 89 15 88 d7 d8 d9 |.O...U.O|........|
|00000540| 0d 5c 22 08 d4 da 4f 0e | 06 83 62 00 db 82 63 00 |.\"...O.|..b...c.|
|00000550| dc dd 09 de 5c 22 83 6e | 00 de 82 78 00 09 d6 df |....\".n|...x....|
|00000560| 4f e0 09 df ca 4f 51 e1 | 0a 21 85 85 00 e2 e3 0a |O....OQ.|.!......|
|00000570| 21 38 d6 56 83 8c 00 e4 | 82 8d 00 de 25 89 16 07 |!8.V....|....%...|
|00000580| 88 0e 08 85 a1 00 08 d6 | d3 4f 0e 07 50 89 16 07 |........|.O..P...|
|00000590| 2d 88 8a e5 20 71 29 88 | e6 e7 20 21 88 e8 d6 21 |-... q).|.. !...!|
|000005a0| 87 22 20 5b 74 69 6d 65 | 20 6c 6f 61 64 20 6d 61 |." [time| load ma|
|000005b0| 69 6c 2d 73 70 6f 6f 6c | 2d 66 69 6c 65 20 64 69 |il-spool|-file di|
|000005c0| 73 70 6c 61 79 2d 74 69 | 6d 65 2d 6d 61 69 6c 2d |splay-ti|me-mail-|
|000005d0| 66 69 6c 65 20 72 6d 61 | 69 6c 2d 73 70 6f 6f 6c |file rma|il-spool|
|000005e0| 2d 64 69 72 65 63 74 6f | 72 79 20 68 6f 75 72 20 |-directo|ry hour |
|000005f0| 70 6d 20 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |pm displ|ay-time-|
|00000600| 73 74 72 69 6e 67 20 64 | 69 73 70 6c 61 79 2d 74 |string d|isplay-t|
|00000610| 69 6d 65 2d 64 61 79 2d | 61 6e 64 2d 64 61 74 65 |ime-day-|and-date|
|00000620| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 73 74 | current|-time-st|
|00000630| 72 69 6e 67 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |ring nil| (byte-c|
|00000640| 6f 64 65 20 22 c0 c1 20 | 40 21 83 0c 00 c2 82 12 |ode ".. |@!......|
|00000650| 00 c3 c4 c1 20 40 5c 22 | 87 22 20 5b 7a 65 72 6f |.... @\"|." [zero|
|00000660| 70 20 6c 6f 61 64 2d 61 | 76 65 72 61 67 65 20 22 |p load-a|verage "|
|00000670| 22 20 66 6f 72 6d 61 74 | 20 22 25 30 33 64 22 5d |" format| "%03d"]|
|00000680| 20 36 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 | 6) ((er|ror (byt|
|00000690| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 22 22 5d |e-code "|.." [""]|
|000006a0| 20 31 29 29 29 20 67 65 | 74 65 6e 76 20 22 4d 41 | 1))) ge|tenv "MA|
|000006b0| 49 4c 22 20 22 4c 4f 47 | 4e 41 4d 45 22 20 22 55 |IL" "LOG|NAME" "U|
|000006c0| 53 45 52 22 20 75 73 65 | 72 2d 6c 6f 67 69 6e 2d |SER" use|r-login-|
|000006d0| 6e 61 6d 65 20 72 65 61 | 64 20 31 31 20 31 33 20 |name rea|d 11 13 |
|000006e0| 31 32 20 30 20 63 6f 6e | 63 61 74 20 66 6f 72 6d |12 0 con|cat form|
|000006f0| 61 74 20 22 25 64 22 20 | 31 36 20 22 70 6d 20 22 |at "%d" |16 "pm "|
|00000700| 20 22 61 6d 20 22 20 73 | 74 72 69 6e 67 3d 20 22 | "am " s|tring= "|
|00000710| 22 20 2d 32 20 22 2e 22 | 20 66 69 6c 65 2d 65 78 |" -2 "."| file-ex|
|00000720| 69 73 74 73 2d 70 20 37 | 20 66 69 6c 65 2d 61 74 |ists-p 7| file-at|
|00000730| 74 72 69 62 75 74 65 73 | 20 22 20 4d 61 69 6c 22 |tributes| " Mail"|
|00000740| 20 6f 74 68 65 72 2d 62 | 75 66 66 65 72 20 73 65 | other-b|uffer se|
|00000750| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |t-buffer|-modifie|
|00000760| 64 2d 70 20 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |d-p buff|er-modif|
|00000770| 69 65 64 2d 70 20 73 69 | 74 2d 66 6f 72 5d 20 31 |ied-p si|t-for] 1|
|00000780| 37 29 29 0a | |7)). | |
+--------+-------------------------+-------------------------+--------+--------+